home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / T-Z / TestStack.cpt / Test Stack / card_5017.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  96 lines
  1. -- card: 5017 from stack: in
  2. -- bmap block id: 5678
  3. -- flags: 0000
  4. -- background id: 2753
  5. -- name: LineContent
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 4002
  11. -- rect: left=9 top=108 right=335 bottom=191
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 162
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: theField
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put "card field " & quote & "theField" & quote into theField
  23.   put LineContent(theField) into card field "lineContents"
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 2 (field)
  29. -- low flags: 01
  30. -- high flags: 0002
  31. -- rect: left=224 top=108 right=335 bottom=394
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 162
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: lineContents
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   put "card field " & quote & "theField" & quote into theField
  43.   put LineContent(theField) into card field "lineContents"
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 4 (button)
  49. -- low flags: 00
  50. -- high flags: 2000
  51. -- rect: left=195 top=108 right=335 bottom=218
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: FieldLineClicked XFCN
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   put LineContent("card field " & quote & "theField" & quote) into card field "lineContents"
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part contents for background part 26
  68. ----- text -----
  69. page 2
  70.  
  71. -- part contents for background part 25
  72. ----- text -----
  73. LineContent
  74.  
  75. -- part contents for background part 30
  76. ----- text -----
  77. 353288
  78.  
  79. -- part contents for card part 1
  80. ----- text -----
  81. The XFCN LineContent
  82. takes an optional single
  83. parameter:
  84. the abbreviated name
  85. of a field.
  86. It then returns
  87. the contents of the line 
  88. in the specified field
  89. (or "the target" if no field
  90. is specified)
  91. correspondings to the
  92. clickLoc.
  93.  
  94. -- part contents for card part 2
  95. ----- text -----
  96. correspondings to the